home *** CD-ROM | disk | FTP | other *** search
/ Great Canadian Scientists / GCS_CD.iso / mac / PC / GCSData / databa_o.dxr / 00017_Click on Scientist in Index.ls < prev    next >
Encoding:
Text File  |  1996-09-21  |  495 b   |  23 lines
  1. on mouseUp
  2.   global Index, IndexNumber
  3.   set TempLine to the mouseLine
  4.   set Temp to Index & IndexNumber
  5.   set Temp2 to the mouseLine
  6.   if line Temp2 of field Temp = EMPTY then
  7.     exit
  8.   end if
  9.   hilite line Temp2 of field Temp
  10.   hilite line Temp2 of field (Temp & "-D")
  11.   set name to line TempLine of field Temp
  12.   set number to the number of member name
  13.   put number
  14.   put name
  15.   if number = -1 then
  16.     beep()
  17.     exit
  18.   end if
  19.   go(number - 300 + 60)
  20.   BSuspend(8, 9)
  21.   BSuspend(13, 13)
  22. end
  23.